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Electronique digitale 



Notre temps aura temoigne d'une nouvelle technique, urie autre fagon de communiquer 
avec I'electronique digitale. 

Piiiiippe Duquesne, professeur cfiarge de cours au CNAM a su dans cet ouvrage en expii- 
quer ciairement les fondements. 
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Dans ce numero, vous allez decouvrir les joies de i'emploi de fichiers d'entrees/ 
sorties tels qu'ils sont prevus par le Pascal standard. II n'y a la que la norme 
stricto sensu mais ce nest deja pas mal. 
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INOTES PERSONNELLES 



I. UTILISATION DE FICHIERS ENTREES-SORTIES EN PASCAL 

STANDARD 
M. Introduction et lamentations 

Cette partie du Pascal est celle qui suit le moins un standard. C'esl sans doute du au 
fait que le createur de Pascal, Niklaus Wirth, ne s'est interesse qua la partie logique du 
langage et peu a la partie pratique. II faut le deplorer, car le resultat est a la hauteur de 
nos esperances, c'est-a-dire lourd, peu efficace sur la plupart des systemes. En fait 
c'est surtout net sur les plus gros systemes ou les temps d'acces pour de tres grandes 
quantites de donnees peuvent etre compares significativement. Sur des petits 
systemes, le plus souvent, la difference de temps avec d'autres langages n'est pas 
trop importante et en tout etat de cause, ne peut justifier le rejet du langage. 
Nous allons done montrer comment utiliser des fichiers en Pascal et donner ensuite les 
differences suivant les Pascal utilises. Nous traiterons en fait les Pascal UCSD, Turbo 
et Macintosfi qui sont les plus repandus. 

1.2. Le Pascal standard 

1.2.1. Les premiers pas 

Tout d'afaord, vous disposez d'un type ftchier qui s'appelle FILE, anglais oblige. Pour 
I'utiliser, il suffit de declarer un fichier de la fapon suivante : 

Type f - file of true 
oil TRUC est un type deja connu du programme. Integer,... ou tout type que vous aurez 
defini auparavant. Un type predefini de fichier est le fichier texte qui est un fichier 
contenant des caracteres au format ASCII. 

1.2.2. Ouvrir un fichier 

Pour travailler sur un fichier, il est necessaire de I'ouvrir. L'operation d'ouverture d'un 
fichier permet de lier le vrai nom du fichier a celui de la variable du programme qui 
permet de I'utiliser, Oh, je vols tres bien que je ne suis pas dair !!! Done, un petit dessin 
pour me faire comprendre : 

Fich_donn 



Program loto; 
type 

fichjnt - file of integer; 
var 

f : ficiijnt; 

begin 



f sera le nom que le programme 
ulilisera de manifere interne pour 
parler de fich_donn. Ceia s'appelfe 

le nom logique du fichier. I) ne 

represente rien, sinon une refererce 

pour le programme. 



Fiehier "fieh_donn" 
Memoire de stockage 



Representation 
exacte en memoire 
de ce fichier. lei, 
nous prenons un 
fichier d'entiers. 



Ceci dit, ce lien entre le fichier et le nom que le programme utilise ne se fait pas tout 
seul. II faut le dire au programme. Nous allons voir comment le faire. Pour commencer, 
une liste de toutes les commandos que nous allons detainer ■ 

RESET 

REWRITE 

CLOSE 
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ERASE 

lORESULT 

READ 

WRITE 

SEEK 

EOF 

EOLN 

SEEKEOF 

SEEKEOL 

FILRPOS 

FILESIZE 

READLN 

WRITELN 
Pour ouvrir un fichier, detix commandes selon ce dont on dispose deja : 
Si le ficiiier n'existe pas encore, il faut faire : 

REWRITE(f;'nom_du^fichier") ; 

Ceci cree le ficliier qui porte le nom "nom du fichier» et dont le lien dans le 

programme est f, :Si .un fichier du meme nom existe deja, il est detruit. 
Si le fichier extstedeja, il taut simplement I'ouvrir, et la commande est : 

RESET(f,"nom_du_fichier") ; 
Ceci represenle les commandes de base. Maintenant, il est possible de les utiliser un 
peu differemment : 

RESET d'un fictiier deja ouvert ramene a la lecture du fichier depuis le premier element 
du fichier. Cela veut dire que c'est equivalent a le fermer et a le reouvrir. Dans ce cas, il 
n'est pas necessaire d'indiquer le nom reel du fichier puisque (e programme connaft le 
lien entre le fichier et son nom logique. II suffit done de faire : 

RESET(f) ; 
Bien sur, ce fichier doit deja etre ouvert. 
Pour reecrire sur un fichier deja ipuuert, il suffit de faire : 

REWRITE! f) ; 
.Bien sur, ce fichier doit deja etre ouvert. 

Si f etait un fichier texte, RESET le positionne en lecture seulement et REWRITE en 
ecriture seulement. Apres un appel a REWRITE, le booleen EOF est toujours urai. EOF 
signifie End Of File et est vrai si le pointeur de lecture est sur le dernier element du 
fichier. Comme le fichier est vide, il est clair que Ton est toujours apres le dernier. 



EOf est faux ici 



EOF est vrai ici 




Fictiier f 
sens de lecture > 



1.2.3. Les autres commandes 
1.2.3.1. Pour tout type de fichiers 



RENAME(ancien,nouvGau) 
ERASE(nom) 



: ferme un fichier qui etait ouvert. Rompt le lien entre le 
fichier et son nom logique dans le programme. 

: Rennet de changer le nom reel d'un fichier, nouveau 
et ancien son! des chafnes de caracteres. 

; permet d'effacer un fichier dont le nom est specifie 
par la chaine "nom". 
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READ([f],v1 [,v2 vk]) 



WRITE(f,v1 [,v2,...,vk]) 



: renvois un entier qui est la valeur de la demiere ope- 
ration d'entree-sortie eflectuee. Les codes sont des 
nombres enfiers negatifs. La documentalion de Turbo 
Pascal donne la liste de ces codes en appendice, 
3 fichiers qui ne sont pas des fichiers textes 



: permet de lire dans le fichier doni f est le lien logique, 
la valeur v1 ou les valeurs v1 a vk. II est possible de 
lire de cette maniere autant de valeurs qu'on le veut. 
Lea [ ] representent des termes optionnels de cette 
commande. Si on veut lire trois valeurs, on mettra 
read(f.v1,v2,v3) mais pour en lire une seule, on mettra 
read(f,v1). Si EOF(f) est vrai, il n'y a plus hen a lire 
dans le fichier et tenter de lire un element malgre taut 
est une erreur. 

: meme type de travail que READ mais en 6criture du 
fichier. Si Ton se trouve en fin de fichier, i( est aug- 
ments d'autant. 

: deplace le pointeur de lecture du fichier pour se pla- 
cer au debut de I'element qui est le (n+l)^™ du 
fichier. n est un entier. Attention, le premier element 
d'un fichier a le numero d'ou le decalage de une 
place de notre definition. Si le fichier contient moins 
de n composants, le pointeur est place en fin de 
fichier et EOF(f) devient vrai. 

: fonction dont le resultat est un booleen et qui est vrai 
si Ton se trouve en fin de fichier, faux dans le cas 
contraire. Se referer a la figure de la page prece- 
dente. 

: permet de connaitre la position du pointeur de lecture 
du fichier. Si Ion est en tete du fichier, la valeur est 0, 
ainsi de suite jusqu'a la fin du fichier, cas ou la valeur 
est celle du nombre de composants du fichier qui est 
donne par la fonction FILEStZE(f), decrite ci-apres. 



Filepos(f)=0 



*1 2 3., 



7 



Filepos{f)=9 

FlLES)ZE{f) : donne le nombre total d'elements du fichier f. 

1.2.3.3. Pour les fichiers de type texte 

Note pr^liminaire : Utiliser un fichier texte ne signifie pas que chaque element de ce 

fichier doive etre lu comme un element de type CHAR. Simplement si un element est lu 

par une variable qui est d'un type different, la conversion est faite automatiquement par 

le programme. Les types de caracteres compatibles avec cette conversion sont les 

types INTEGER, REAL, STRING (pour les versions qui en disposent) et CHAR naturel- 

lement. 

READ[f],vl [,v2,...vk]) : lit un ou plusieurs elements dans le fichier f. 
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Quelques proprietes particulieres de cette commande dans le cas des fichiers texts : 
Si le parametre f n'est pas mis, la lecture est faite sur le ftchier standard INPUT qui est 
en general le clavier. 

Si EOF(f) est vrai avant la lecture (on est en fin de fichier), II n'y a pas d'erreur comme 
dans le cas d'un fichier quetconque mais la variable de lecture est mise a CHR(O). 
Si le pointeur se trouve sur un retour chariot, la variable est mise a CHR{13). Le READ- 
suivant lira le caractere suivant. 

Si READ est fait avec un INTEGER (READ(f,i) oil il est un entier), il est indispensable 
que la suite de caracteres lus torment un nombre sinon une erreur est generee. La lec- 
ture vad'un blanc, retour chariot ou tabulation a un autre blanc, retour chariot ou tabu- 
lation ou si EOF(f) devient vrai. Si tout se passe bien, la valeur comprise est donnee a la 
variable de lecture, i dans I'exemple precedent La lecture ignore les blancs, retours- 
chariot et tabulations. Si EOF(f) est vrai avant le debut de la lecture ou au cours de la 
lecture, la valeur est affectee a la variable, 

II faut bien comprendre ce que signifie la lecture d'un point d'arrel (tabulation, blanc, 
retour chariot) a un autre, avec saut des points d'an'ets en cours de lecture. Cela signi- 
fie que : 

- la lecture commence toujours a un tel point d'arret ; 

- si de tels points sont trouves en cours de lecture, lis sent ignores ; 

- si la lecture s'arrete entre deux points d'arrets et non sur un tel point, la lecture de 
I'element suivant debutera apres le second. 

Une illustration rapide de ce qui precede : 



lllllllllllllllllllllllll 



\/ 

Point d'arr§t 

(Retour cliariot 

tabulation 

blanc) 



Reprenons point par point ces trois regies : 
La lecture commence toujours a point d'arret : 



Debut possible de la lecture 



EM 



.^NOTES PERSONNELLES 



Si de lels points sont rencontres en cours de lecture, ils sont ignc 



III I Ill I 



^ 



Debut de la lecture 
READ(f,v1,v2,v3,v4); 

Apres avoir lu v3, le pointeur Gst sur un point d'arret. 

Mais la lecture nest pas finie, Le point d'arret est ignore. 

La lecture continue avec ['element qui suit ce point 

d'an-et jusqu'a la fin de la lecture. 



Voici le detail : 

READ(f,v1,v2,v3,v4); 



\ 



HH 



Debut de la lecture 



\ 



HM 



■Apres lecture de v1 



mi 



"^ 



,pres lecture de v2 



f 



■Apres lecture de v3 



ipi 

>! p nnint 



Le point d'arret est 



IMI 



K 



■Apres lecture de v4 
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Si la lecture s'arrete entre deux points d' arrets et non sur un tel point, la lecture de 
['element suivant debutera apres le second : reprenons le cas ci-dessus. 
Apres avoir lu v4, la commande READ est terminee. A la prochaine commande READ, 
[a lecture reprendra apres le point d'arret suivant : 



mm 1 1 



^Debut de la lecture suivante 



Si READ est fait avec un REAL (READ{f,x) oil x est un reel), il est indispensable que la 
suite de caracteres lus torment un nombre reel, sinon une erreur est generee. Comme 
precedemment, la lecture va d'un blanc, retour chariot ou tabulation a un autre blanc, 
retour chariot ou tabulation ou si EOF(f) devient vrai. Si tout se passe bien, la valeur 
comprise est donnee a la variable de lecture, x dans I'exemple precedent. La lecture 
ignore les blancs, retours chariot et tabulations. Si EOF(f) est vrai avant le debut de la 
lecture ou au cours de la lecture, la valeur est affectee a la variable. Nous voyons 
done que tout se passe de la memo maniere que pour des entiers. 
Si READ est fait avec une variable de type CHAR (READ(f,a) oii a est un CHAR), la lec- 
ture va d'un retour chariot a un autre retour chariot, ou si EOF[f) devient vrai. Si tout se 
passe bien, la valeur comprise est donnee a la variable de lecture, a dans I'exemple 
precedent. Si EOF{f) est vrai avant le debut de la lecture ou au cours de la lecture, la 
valeur est affectee a la longueur de la variable. De plus, quelques differences appa- 
raissent dans le cas de la lecture de variable de type CHAR, 

Ainsi, si vous declarez une longueur (n) insuffisante pour votre chaine, elle est tronquee 
en lecture, ne gardant que les n premiers caracteres, les autres sent ignores. 
Apres la lecture d'une chaine, le pointeur va au retour chariot suivant, SANS LE 
DEPASSER, Done, lors de la lecture de la chaine suivante, le programme ne verra que 
ce retour chariot et la variable suivante ne sera chargee que d'un retour chariot done 
une chaine vide. 
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Premiere lecture Debut de la lecture suivante 

Pour eviter cela, il suffit d'utiliser READLN au lieu de READ, comme nous I'avions fait 

en usage normal, 

WRITE([f],v1 [,v2 vk]) : ecrit un ou plusieurs elements dans le fichier f. Quel- 

ques proprietes particulieres de cette commande 
dans le cas des fichiers texte : 

Si un parametre f nest pas mis, la lecture est faite sur le fichier standard OUTPUT qui 

est en general I'ecran, 

Chacune des vi est ce que Ton appelle un parametre d'ecriture. Ges parametres sent 

formes de I'expression a ajouter au fichier et, eventuellement, le format d'ecriture, 

Chaque variable doit etre d'un type standard, Un parametre d'ecriture a done la forme : 
EXPR [ : M1N_TAILLE [ NOMBR^DE_PLACES ] ] 

MIN_TAILLE et NOMBRE_DE_PLACES sont des entiers. Le premier specifie la 
faille minimale d'un champ de cette expression, taille minimale qui sera respectee, 
meme si i'expression est plus petite, en ajoutant des blancs. Par contre une taille 
superieure est toleree. Si ce parametre optionnel est omis, I'ecriture s'adapte a chaque 
taille. NOMBRE DE PLACES specifie pour une variable de type REAL exclusive- 
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EOF Bt EOLN travaillent de la 

raissent, 

SEEKEOF([f]) 



ment le format d'ecriture, avec le nombre de digits souhaite pour des prablemes de 

precision {dimension de la mantisse). Notons que I'ecriture d'un entier se fait au format 

decimal et non binaiie ou ASCII. 

Une plus grande precision releve de la lecture de chaque PASCAL, les variations com- 

mengant en general a partir de ce point, 

WRITELN([f],v1 l,v2 vk]) : cette commande fait exactement la meme chose que 

WRITE, puis ajoute un retour cfiariot. Si la llste de 

paramelres est vide, seul un retour chariot est ecnt. 

neme maniere mais deux nouvelles commandos appa- 

permet de travailler comme EOF mais en sautant tout 
ce qui encombre une liste de parametres numeriques, 
comme les blancs, les tabulations et les retours cha- 
riot. C'est une fonction de type booleeLN. 
SEEKEOLN([f]) : permet de travailler comme EOF, mais en sautant tout 

ce qui encombre une lisle de parametres numeriques, 
comme les blancs, les tabulations et les retours cha- 
riot. 

1.3. Les entrees sorties standard 

Deux entrees sorties soni standard en Pascal, une en entree, I'autre en sortie. En 
entree, CONSOLE permet de lire des caracteres venant du clavier, en sortie, PRINTER 
permet denvoyer des donnees a I'imprimante, ou a tout systeme connecte a la sortie 
imprimante. 

II. CONCLUSION 

Nous avons vu ici une liste fastidieuse de commandos. II est assez facile de les utiliser 
mais, dans la piupart des cas, il vous faudra vous lancer dans la lecture du manuel de 
votre version pour connaitre les variations, les nuances et surtout les additions qui, de 
plus en plus, voient le jour. Le cas le plus flagrant est bien sur le Macintosh dorit la 
complexite de interface requiert des commandes beaucoup plus nombreuses que les 
autres systemes. Menus, souris et fenetres, ressources et File Manager demandent 
une gestion plus lourde pour une utilisation simplifiee. On n'a rien sans rien. 
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Voici done la fin de cette serie consacree a I'editeur de texte pleine page. Elle se 
resume en la fourniture d'un listing PASCAL d'une version de base d'editeur. 
Nous sommes desoles pour les non-"PASCALIENS... de ne pas avoir fourni de 
version BASIC, mais I'adaptation avec I'aide des routines en pseudo-langage ne 
devralt pas s'averer insurmontable (ce serait toutefois une bonne raison pour se 
lancer dans la programmation PASCAL). 



PLAN DU COURS 
Editeur de texte 
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EDITEUR DE TEXTE 

Les djfterents elements sont en fail la traduction en PASCAL des routines en pseudo- 
langage decrites dans les numeros precedents. La coherence de rensemble nous a 
oblige a apporter quelques modifications dans la description de certaines d'entre elles 
(et aussi pour corriger quelques erreurs). Notamment la procedure de destruction dun 
caractere a ete simplifiee ; par centre, les routines de mouvements de curseur ont ete 
completees et le curseur clignotant est desormais gere manuellement [interessant 
pour tous ceux qui ne peuvent directement intervenir sur la position du curseur 

standard de leur ordinateur). Une derniere remarque, les variables x curseur et 

y_curseur ont ete substituees par X et Y dans une partie des descriptions des- 
routines, il s'agissait bien des memes variables indiquant la position du curseur. Le 
programme fourni a ete teste, il vous permettra done une adaptation facile sur votre 
ordinateur car il «tourne». Bon courage !.,. 

program editeur (input, output); 



const 

max-buffer = 200; 
nb_ligne = 24; 
nb_col =64; 
curseur = "_'; 
insert = 9; 
surlmp = 19; 
destruc = B; 
destruc-llgne = 4; 
termt = 6; 



{ CTRL-I) 
{ CTRL-S) 
{ Backspace) 
{ CTRL-D) 
{ CTRL-F) 



( parametres dependants de Tordinateur ( ici les 4 fleches du clavier} 

gauche = 28; 
droite = 29; 
haut = 30; 
bas = 31; 
cr= 13; 



gne = strlng[nb_col], { ou packed array! 1..nb_col] of char} 



{ tableau en memoire) 
buffer : array! l..max_buffer] of itgne; 

{ constantes definies pour les caractferes de controle } 
sonnerie : char; 

{ variables pointeurs liees au buffer ) 

prem_llgne, nb_occup : integer; 
x_curseur, y_curseur : integer; 
x_ecran, y_ecran : integer; 

{ flags de gestion du programme } 
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fin, mode_lns : boolean; 



ch : Cher; 
kb : textj 



INITIALISATION du PROGRAMME 



procedure initialiser; 

vor 
i : integer; 

begin 

{ initialisation des variables principales) 

x_curseur := 1; 
y_curseur := 1; 
nb^occup := 0; 
prem_ligne := 1; 
fin := false; 

mode_ins r= true;{ pardefeut, on est en mode insertion} 
for i := 1 to max-buffer do 
buffer[i] := "; 
end; 



PDSITION-ECRAN est depentJant de la machine et du Pascal ) 
ce sera a vous de Tecrire en fonction de votre ordinateur} 



procedure POSITION_ECRAN (x, y : integer); 

begin 

x_ecran := x; 
y_ecran ;= y; 

{ inserez ici le code dependant) 



{ LITCAR est une fonction de lecture du clavier sans echo 

{ a ecrire en fonction de votre machine renvoie le caractfere entre s'il 

{ existe sinon le caractere de code ascii 0} 



function LITCAR : char; 
begin 

{ code dependant ici) 
end; 
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{ECRIT_CAR pour V ecriture d"un seul caractere) 
{ routine particuliere e chaque machine } 



procedure ECRIT_CAR (c : char); 
begin 
{ code dependant ici } 
end; 

( 

{ appel LITCAR et raffroichit le curseura Ticron) 



{- 



function LECTURE : Char; 

const 
max_compt ^ 50;{ a modirier suivant la Vitesse souhaitee pour 1 

var 
c : char; 

curseur : boolean; 
compt, 1 : integer; 

begin 

C := LITCAR; 
curseur := false; 
compt := max_compt; 
1 := prem_ligne + y_curseur - 1; 
while c = chr(o) do 
begin 
if compt = max_compt then 
begin 
compt := 0; 
if curseur then 
begin 
POSITION_ECRAN(x_curseur. y_curseur), 
ECRIT_CARC_'); 
end 
else 
begin 
POSlTlDN_ECRAN(x_curseur, y_curseur), 
if x_curseur<= length(buffer[l]) then 

ECRIT_CAR(buffer[l]ix_curseur]) 
else 
ECRIT-CARC ■); 

end; 
curseur := not curseur; 
end; 
compt := compt + 1; 
C := LITCAR; 
end; 
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if not curseur than 
begin 
POSITION_ECRAN(x_curseur, y_curseur)j 
1f x_curseur<^ length(bufrer[l]) then 

ECRIT_CAR(buffer[l][x_curseurD 
else 
ECRIT-CARC ■); 
end; 
LECTURE := Cj 
end; 



(.__, ) 

{ ERREUR produit un simple beep par exemple ; depend de votre ordinateur) 

( ) 

procedure ERREUR; 

begin 

{ code dependant ici } 
end; 



{ ECRIT est dependant de Tenvironnement) 

{ correspond le plus souvent a un writelr PASCAL ) 



procedure ECRiT (s : Hgne); 



{ code dependent ici 1 
end; 



{ Procedure INSERER) 



procedure INSERER (car : char); 

var 
si, s2 : ligne; 
1, dep, taille : integer; 

begin 
1 := prem-ligne + (y_curseur - 1); 
taille :=length(buffer[l]); 
1.f x_curseur= nb_col then 

ERREUR 
else 
begin 
If (mode-ins) then 
dep := 
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else 

dep := 1; 
si := copy(buffer[l], 1, x_curseur ~ 1); 

s2 := copy(buffer(l], x_curseur + dep, taille - x_curseur + (1 - dep))j 
x_curseur := x_curseur + 1; 
buffer[l] := concat(sl, car, s2); 
POSITION-ECRAfJd, ij_curseur); 
ECRlKbufferDDj 
end; 



{ DEF_HAUT-_BAS provoque le defilement du texte de haut en bes } 



function DEF_HAUT_BAS : boolean; 



1 : integer; 

begin 

prem_1igne := prem_ligne - 1; 
if prerri-iigne = o then 
begin 

DEF_HAUT_BAS := true; 
prem_ligne := 1; 
end 
else 

DEF_HAUT_BAS := false; 
for i := prem_ligne to (prem-ligne + nb_ligne - 1) do 
begin 
POSlTIDN_ECRAN(l,i - prem_ligne * 1); 
ECRIT(bufferlil), 
end; 
end; 



( DEF_BAS_HALrr provoque le defilement du texte de bes en haut} 



function DEF_BAS_HAUT : boolean; 



i ; integer; 

begin 

prem-ligne := prem_ligne + 1; 
If prem_1igne > nb_occup then 
begin 

DEF_BAS_HAUT := true; 
prem-ligne := nb_occup; 
end 
else 
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DEF_8AS_HAUT := false; 
for i := prem_ligne to (prem_llgne + nb_ligne - 1) do 
begin 
PQSITIDN_ECRAN(1 J - prem_ligne + 1); 
ECRIT(buffer[i]); 
end; 
end; 



( ) 

{ DEP_GAUCHE permet le deplocement vers la gouche) 

( ) 

procedure dep_gauche; 

var 

err : boolean; 

begin 
x_curseur := x_curseur - 1; 
If (x_curseur = 0) then 
begin 
y_curseur := y_curseur - l; 
If {y_curseur = 0) then 
begin 
err := DEF_HAUT_BAS; 
y_cursBUr := 1; 
If err then 
begin 
x_curseur := 1; 
ERREUR; 

end 
else 

x_curseur :- length(bufrerlprem_lign8 + Lj-curseur- 1])+ 1; 
end 
else 
x_curseur:= length(buTferlprem_llgne t y^curseur- l])+ i; 
end; 



{ y 

{ DEP_DROITE pour la fleche a droite} 

( J 



procedure dep_drditE; 



1 : integer; 
err : boolean; 

begin 

1 := prem_l1gne + y_curseur - 1; 
if x_curseur > length(bufferll]) then 
begin 



&;■ . , . . ^ .' ■ , ,. 
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if (y-curseur > (nb_occup - prem_ligne + 1 )) then 




ERREUR 




else 




begin 




y-Curseur := y_curseur + l; 




If y_curseiir > nb_ltgne then 




begin 




err := DEF_BAS_HAUT; 




y_curseur :- nb_ligne; 




if err then 




ERREUR 




else 




x_curseur := 1; 




end 




else 




x_curseur := 1; 




end; 




end 




else 




x_curseur := x_curseur + l 




end; 




{ - } 

{ nONTE pour 19 fleche vers te hout) 


{ -- } 
procedure monte; 


vor 




1, xO : integer; 




err : booleen; 




begin 




y_curseur := y_curseur - l; 




If y_curseur = then 




begin 




err := DEF_HAUT_BAS; 




y_curseur ;= 1; 




If err then 




ERREURj 




end; 




1 := prem_l1gne + y_curseur - 1; 




XO := length(bufrer[l]); 




if x_curseur > xo then 




x_curseur := xO + l; 




end; 




{- J 

{ DESCEND pour lo fleche vers 1e bas) 


{ - _ J 

procedure DESCEND; 


van 




err : boolean; 




1, xO : integer; 
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begin 

if (y_curseur > Cnb_occup - prem_ligne + D) then 
ERREUR 

else 

begin 
y^curseur := y_curseur * l; 
if (y_curseur > nb_ligne) then 
begin 
err := DEF_BAS_HAUT; 
y_ciirseur := nb_ligne; 
if err then 

ERREUR; 
end; 
1 := prem_ligne + ij_curseur - 1 ; 
xO := lsngth{buffer[l]>; 
if x_curseur > xO then 
x_curseur := xO + 1; 
end; 
end; 



^ 

{ DES-LIGNE efface la llgne oCi se trouve le curseur} 



procedure des_ligne, 
var 
1, 1 : integer; 

begin 
If nb_occup = then 

ERREUR 
else 
begin 
x_curseur := 1; 

1 := prem_11gne + y_curseur - 1; 
for 1 := 1 to (nb_occup - 1) do 
bufferlil := bufferd + 11; 
buffer!nb_occup] := ", 
nb_occup := nb_occup - 1; 
for i := y_curseur to rb_ligne do 
begin 
P0SITIQN_ECRAN(1, 0; 
ECRlKbufferfi + premJigne - l]); 
end; 
end; 
end; 



{ DES_CAR efface le caractere a gauche du curseur} 

procedure DES_CAR; 

var 
1, 11 : integer; 
s1, s2 : ligne; 
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begin 

I := prem_ligne + y_curseur- l; 

II := length<buffer[l]); 
1f x_curseur= l then 

lf 11 = then 

DES_LIGNE { on efface la Hgne vide } 
else 

ERREUR 

else 
begin 
If (x_curseur> 11) then 

bufferll] := copy(buffer[l], 1, ii - i) 
else 
begin 
S1 := copy(buffer[l], 1, x_curseur - 2); 
s2 := copy(bufferil], x_curseur, 11 - x_curseur -» 
bufferHJ := concat(si, s2); 
endj 
x_curseur := x_curseur - 1 ; 
P0SIT10N_ECRAN(1, y_curseur)j 
ECRlT(buffer[l]); 
end; 



{-- 



{ NOUVEL_LIGNE permet d'ajouterune ligne au texte} 



{- 



procedure nouvel_ligne; 

var 
1, 11, 1 : Integer; 

begin 

if nb_occup = max_buffer then ^ 

ERREUR 
else 

begin 

I := prem_iigne + y_curseur - 1; 

II := length(buffer[l]); 

bufferll + 1] := copy(buffer[l], X-curseur, 11 - x_curseur + 1); 
bufferll] ;- copy(bufferll], 1, x_curseur - 1); 
lor i := nb_occup downto 1 + l do 

bufferll + 1] := buffeKi]; 
nb_occup := nb_occup + 1; 
for i := y-curseur to nb_ligne do 
begin 
P0SITIDN_ECRAN(1J); 
ECRIT{buff er[i ■^ prem_ligne - 1 ]); 
end; 
x_curseur := l; 

DESCEND;{ on iaisse la routine descend effectuer le trawail) 
end; 
end; 
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; INTERACTIVE procedure principol gerant les fonctions de base } 



procedure INTERACTIVE; 

vor 
ch : char; 



begin 

ch := LECTURE; 

If (ord(ch) > 31) and (ord(ch) < 127) then 

INSERER{ch) 
else 

case ord(ch) of 
gauche : 

DEP_GAUCHE; 
droits : 

DEP_DROITE; 
hQUt : 

MONTE; 
bas : 

DESCEND; 
cr : 

N0UVEI_L1GNE; 

destruc : 

DES_CAR; 
destruc_11gne : 

DES_LIGNE; 
lermi : 

Tin := true; 

{ ajouter ici la gestion des modes insertlon/surimpression) 
{ et ou d 'outres fonctions plus complexes } 

otherwise 
ERREUR;{ pour tous les autres codes de controle} 
end; 
end; 



(*»•-•*•••• DEBUT DU PROGRAMME PRINCIPAL ••***• 
{*-**•* .•.»•......•.•...*..»........— 

begin 

INITIALISER; 
{ maintenont on boucle jusqu'a la fin demandee par Vutilisateur} 
repent 

INTERACTIVE; 
until fin; 

{ on pourra ojouter ici les sauvegordes en sortie par exemple} 

end. 



DIALOGUE 
AVEC NOS LECTEURS 



I. LES CARRES MAGIQUES 

La nouvelle solution des carres magiques a du vous paraitre bien hermetjque dans 
noire precedent numero. Nous vous prions de vien vouloir nous excuser mais une 
erreur a fait disparaitre la solution proposee par M. Gueron rendant nos explications la 
concernant hors de propos. Aussi la voici : 

10 CI,,S 

20 REM programme realise par Jacques GtJERON 

30 REM BASIC standard + print using 

40 REM per met d ' obteni r 1 'ensemble 

'"iO REM des 3600 carres magiques d'ordre 5 tous distincts 

60 REM les uns des autres 

70 REM val eur magi que!=65 

BO REM dans toute 1 igne , col onne ,di agonal e 

90 REM y compri s 1 es di agonal es bri sees ! . 

100 INPUT " CARRE DE DEPART (Numero 1 a 3600) ";M:N=M-t 

:i. 10 FDR A=0 TO 20 STEP 5 

120 FOR B-0 TO 20 STEP 5: IF B=A THEN 470 

130 FDR C=0 TD 20 STEP 5: IF (C-A) OR <C-B) THEN 460 

140 FDR D=0 TO 20 STEP 5: IF (D-A) DR (D-B) OR (D=C) THEN 450 

150 FDR E=0 TO 20 STEP 5; IF (E=A) DR (E=B) DR CE-C) DR (F=D) THF£N 440 

160 FOR X=l TD 5 

170 FDR V=l TD 5: IF Y=X THEN 420 

ISO FOR 1=1 TD S:IF (Z=X) OR (Z=V) THEN 410 

190 FOR T=l TO 5: IF (T=X) DR (T=Y) DR (T=7) THEN 400 

200 FDR U=l TO 5: IF (U=X) OR (U=Y) DR <U=Z) DR (U=T) THEN 390 

210 IF A+X <E+U AND A + X<D+Z AND A+X<C+Y AND P+Y■^■C+T THEN 220 ELSE 300 

220 K=K-+-1 

230 IF K<NH-1 THEN 300 







240 PRINT " *":K; "*" 




250 PRINT UBINB " tt#"; A+X ; B+Y; C+Z 5 D+T; E+U 




260 PRINT USING " tt**" ; C-hT; D+U; E+X ; A+Y; B+Z 




270 PRINT UBING " tt#"! E+Y; A+Z ; B+T; C+U; D+X / 




2B0 PRINT UBIMB " tt*t"! E+U;; C+X; D+Y; E+Z; A+T 




290 PRINT USING " #tt"! D+Z; E+T! A+U; B+X ; C+Y 




300 IF X-i-A<U+E AMD X+A<T-hC AND X+A<Z'i-B AND Y-^B^Z+D THEN 31.0 El 


_BE 390 


310 K=KH"1 




320 IF K<N4.-1 THEN 390 




330 PRINT " **";!<; ■'**" 




340 PRINT USING " #^tt"; X+A; Y+B; Z+C; T+Ds U+E 




350 PRINT USING " IM+" ;; 2+D; T+E; U+A; X+B; Y+C 




360 PRINT USING " ^^tf" ; U+B; X-f C; Y+D; Z+E; T+A 




370 PRINT USING " i+#" ; Y+E; Z+A; T + B; U+C; X+D 




380 PRINT USING " ##" ; T+C; U+D; Xn-E; Y+A; Z+B 




390 NEXT U 




400 NEXT T 




410 NEXT Z 




420 NEXT Y 




430 NEXT X 




440 NEXT E 




450 NEXT D 




460 NEXT C 




470 NEXT B 




4B0 NEXT A 


^ 


De plus, dans ces explications, il fallait lire non pas : 




200 U ^ 15-X-4-2-T 




mais 




U ^ 15-X-Y-Z-T 




II. LES CHIFFRES ET LES LETTRES 




Voici maintenant la solgtion de notre probleme de chiffres et de lettres. Nous nous 




contenterons de vous presenter cette fois-ci I'affichage des solutions sans chercher a 




les faire resoudre par lordinateur. 




Program Chif f res_Lettre3 ; 




Type 




t lettres = 'A' . . 'I' ; 




t chiffres = 1. .9 ; 




t couple = record 




lettre : t lettres ; 




chiffre : t_chiffres ; 




end ,- 




t_solution = array [1..4] of t_COuple ; 




Var 




solution , 




proposition , 




sol modifies , 




prop raodifiee : t_solution ; 




coup f 




couples_bons t 





couple s_mal_p laces , 

solitaire : INTEGER 

trouve : BOOLEAN 



Procedure Entree soluti 



( OUT solution 



1 : INTEGER ; 

Begin 

for i := 1 to 4 do { les valeurs possibles sont A a H et 1 a 8 
begin 

write {' Entrez le couple n. ' , i:l, ' (lettre puis chif fre) ' ) 
readln ( solution [i] .lettre , solution [i] .chif fre ) ; 
end ; 
End ; 

Function Bien_Places ( IN proposition : t_solution ; 
OUT 3ol_modifiee , 

prop_modifiee : t_solution ; 
OUT solitaire : INTEGER ) : INTEGER ; 
Var 

i , j , couple , simple , bon : INTEGER ,- 



sol_modifiee := solution ; 
prop_modifiee := proposition ; 
couple := ; 
simple := ; 
for i := 1 to 4 do 
begin 

bon := ; 

if 3ol_modifiee [i] .lettre = 

if sol_modifiee [i] .chif fre ■■ 

case bon of 



prop_modifie6 [i] , lettre then bon := bon + 1 
prop_modifiee [i] .chif fre then bon := bon + 



1 : simple := simple + 1 ; 

2 : begin 

sol_modif iee [i] .lettre 
3ol_raodif iee [i] .chiff re 
prop_modifiee [i] .lettre 
prop_modifiee [i] .chiff re 
couple := couple + 1 ; 



end ,- 
end ; 
end ,- 
solitaire := simple ; 
Bien__places := couple ; 
End ; 

Function Mal_Places ( IN sol_modif iee 
prop_modifiee 



t_solution ) 



for i := 1 to 4 do 
begin 

j := 1 -■ 

while { solution [ 
begin 

if i <> j then 

i^ { solution[i] .lettre = proposition[ j] .lettre ) 

/ ,,«i,,.-4^v. r 4 1 „v,^^^^^ = propositiorl [ j] ,chif fre ) then 



.Chiffre < 9 ) AND ( j <= 4 ) do 



] .chiffr 



end ; 
end ; 
Mal_places 



AND ( solution [ 
begin 

solution [i] .lettre 
solution[i] .chiffre 
proposition [i] .lettre 
proposition [i] .chiffre 
couple := couple + 1 ; 
end ; 
= j + 1 ; 



= couple 



Progranune Principal 



gin 



Entree_solution (solution) ; 

coup := ; 

repeat 
Entree_solution (proposition) ; 
coup := coup + 1 ; 

COuple3_bons := Bien_places ( proposition , 3ol_modifiee , 
prop_modif iee , solitaire ) ; 
trouve := ( couple3_bons = 4 ) ; 

if not trouve then couple5_mal_places := Mal_places ( 3ol_modifiee , prop_inodifi 
writeln ( ' reponse ' , couples_bons : 2 , solitaire : 2 , couple3_mal_place3 : 2 ) ; 

until trouve ; 

writeln ('vous avez trouve la solution en ',coup:2,' coups') ; 
End 



Ce programme laisse 8 choix possibles pour les lettres et autant pour les chiffres. La 
lettre I et le chiffre 9 sont reserves a la program matjon. 

Le programmeur donne une combinaison solution qui est un tableau de 4 couples 
lettres-chiffres. Ensuite, le joueur propose une premiere tiypottiese qui est egalement 
un tableau de 4 couples. Le compteur des coups est incremente. 



/A\ C B A 

^2 2 

@B B . 

2 3 



La premiere chose a faire est de compter le nombre de simplets (un demi-couple) et de 
couples bien places. Dans ce but, pour chaque element du tableau, on incremente un 
compteur si la lettre ou le chiffre est correct. Si le compteur indique : 

- : rien n'est bon, 

- 1 : un des deux seulement est bon, on ne touche rien, 



-2:1 


3 couple est bon, il convient alors de lui substltuer 19 le couple impossible. 




1 C B A 

Solution 9 2 2 1 

Proposition 9 3 4 




h- -3| 


Apres cela, il faut maintenant determiner les couples vaiables mal places. On ne peut 
retomber sur un couple bien place pulsqu'on lui a subsltue 19, il ne reste qu'a comparer 
chacun des couples de la solution avec chacun des couples de la proposition a 
I'exception des 19. 




1 Cfi\ A 
Solution 9 2^1 

t /b\B A 
Proposition 9 \2J 3 4 




|1- -3| 










1 C t A 
Solution 9 2 9 1 

1 I B A 
Proposition 9 9 3 4 




|,-,-3| 
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CEST ARRIVE 
DEMAIN 

(en direct de notre envoye permanent dans la Silicon Valley) 



Les nouveaux Apple sont arrives, lis sont deux, pour 
sjmplifjer. En fait, le SE est une sorte de Mac + , a 
peine ameliore, sinon la presence d'un "Slot- permet- 
tant de connecter des carles d'extensions. L'autre 
est plus interessant, avec une arctiitecture ouverte, 
un 68020, un coprocesseur mathemaiique et il gere la 
couleur. Un seul detail, 11 coute dans les 4 000 dollars 
en version de base (24 000 francs), ce qui le mettra 
dans les 45 000 francs dans notre beau pays. La ver- 
sion couleur est, bien entendu, plus chere puisque un 
ecran couleur est plus couteux que son homologue 
noir et blanc, Et il faut naturellement une interface 
speciale. L'ordinateur devient moins personnel chez 
Apple, mais il concurrenee en fait le AT de chez IBM 
sans la moindre compalibilite. Une carte MS-DOS et 



UNIX seront bientot disponibles pour pallier cet 
inconvenient. Vous disiez familial, Puisque nous en 
sommes a parier de la societe Apple, une information 
style Paris-Matcfi. Mr. Jofin Sculley, P.d.g. de la firme, 
semble gagner cette annee la course la plus suivie de 
la region, celle du plus haut salaire. On prevoit dans 
les milieux informes et generalement autorises (a 
moins que ce ne soit le contraire) une riposte fou- 
droyante du P.d.g, de Chevron Oil, glorieux detenteur 
du titre depuis des lustres et totalemeni ndicule cette 
annee, a plus de trois millions de dollars de Sculley (8 
a 5). Notons que tout de meme, le second empoche 
pres de 3 milliards de centimes cette annee, soit 
250 000 000 de centimes par mois. Ambroise Roux, 
ex-patron le plus pays de France doit etre vert de rage. 



Un nouveau disque dur pour I'Amiga, d'une capacite 
de 20 Mb. Cecj peut sembler banal, mais le produit ne 
I est pas. II propose en effet, dans un meme boftier, 
une memoire RAM de 1 Mb et deux slots d' extension 
supplementaires. De plus, une carte horloge est four- 
nie avec. Un systeme complet, qui est de plus perfor- 
mant en raison dune carte d'inlerface travaillant en 
DMA (en acces direct sur le bus de donnee), 
Enfin. une interface SCSI est incorporee, permettant 
de connecter d'autres peripheriques. Tout au moins 
dans le principe car, pour linstant, le seul grand utili- 
sateur de ce type d'interface, Apple, a reussi a creer 
un faux standard SCSI, non compatible avec le vrai. 
Fermez le ban. 

Les utilisateurs de Mac connaissent Switcher, pro- 
gramme permettant de passer d'un iogiciel a un autre, 
sans ouvrir ni termer quoi que ce soil. II suffit de cli- 
quer sur une fleche et vous etes au cceur dun autre 
programme. 1,'utitite de tels programmes, en dehors 
du simple contort d'utilisation, est evidemment dans la 
rapidite et la souplesse du transfert de donnees, de 
texle ou d'images, d'une application a une autre. Les 
possesseurs de PC, compatibles et d'Atari, peuvent 
maintenant obtenir les memes facilites grace a des 
programmes nommes DOSamatic et Software Car- 
rousel. Le premier est un auaiar d'un programme qui 
etait distribue en -Shareware", c'est-a-dire gratuite- 
ment, a charge au possesseur qui I'utilise de verser 
quelques dollars (en general 20) a I'auteur, II s'avere 
que la moralite des utilisateurs se perd et que le sha- 
reware ne paie plus. Done, ce programme, revu et 
corrige, est maintenant dans le circuit commercial. 
Software Carrousel egalement est un tres bon pro- 
duit, souple et simple. Tous deux permettent 
dengranger autant de programmes que la memoire le 
tolere soit, pour une configuration de 1 Mb en 
moyenne, quatre programmes. Pas mal du tout quand 
on veul eviter une perte de temps importante, 

II existait jusqu'a present un reseau de television par 
satellite permettant aux professionnels, revendeurs et 
grosses societes, de s'informer par des nouvelles 
rapidement traitees et commentees. Le prix etait pro- 
hibitif et de plus, il fallait un reseau de reception pour 
chaque client Une ruine. Malgre cela, MicroAge 
Computer Store, createur de la formule, a decide de 
Jeter I'eponge, incapable qu'elle etait de joindre les 
deux bouts par les abonnements, A la place, elle pro- 
pose un magazine mensuel sur cassettes video, 
d'une duree de deux ou trois heures. Le prix est tou- 
jours eleve, mais semble plus raisonnable pour les 
professionnels vises, il ne reste done plus sur le mar- 
che du magazine tele que la societe The Computer 
Show, qui continue a proposer des programmes regu- 
liers sur une frequence particuliere. 



Commodore prepare une machine tres puissante, 
I'Amiga 2000, qui permettra du vrai multi-tache, avec 
une gestion multi-programmation, grace a un 68020 a 
14 MHz et une architecture ouverte. Sa compatiblite 
avec le 1000 est supposee parfaite, II est iivre avec 
un lecteur de disquette 5,5 pouces et permettra de 
travailler sous MS-DOS si on lui rajoute la carte ad- 
hoc. Sans cette carte, la configuration est de 1 500 
dollars. Cette machine n'est pas encore officiellement 
annoncee (livraison prevue debut avril), mais une 
revue. Compute, a devoile toutes les informations 
dont elle dispose a son sujet avant I'autohsation de 
Commodore. En reponse, le fabricant du 2000 pour- 
suit la revue pour non respect d'une clause de secret 
qui ne fait pas I'objet d'accords ecrits en general, les 
deux partis y gagnant a se respecter mutuellement. 
Cette fois-ci, ce ne semble plus etre le cas et le pro- 
ces promet d'etre interessant. 



Commodore annonce une autre machine, bas de 
gamme a 500 $, destinee au marche domestique, Ce 
sera une nouvelle tentative pour redresser les finan- 
ces de la societe qui, la premiere, s'est lancee dans 
I'ordinateur personnel. 



Atari, malgre son dynamisme, continue a naviguer 
avec une gestion dans le rouge. Atari, avouons-le, ne 
s'y prend pas toujours au mieux de ses interets. Par 
exemple. apres lannonce dun PC compatible perfor- 
mant et peu cher pour bientot, on apprend que cette 
machine n'est toujours pas soumise a la commission 
chargee de tester sa conformite aux normes electri- 
ques americaines. C'est tres inhabituel, cette confor- 
mite fajsant le plus souvent I'objet des toutes premie- 
res demarches afin de pouvoir figer la machine sur le 
plan blindage et architecture generale, ce qui n'est 
pas rien. En consequence, les actions d'Atari sent en 
chute libre, la societe ayant annonce que la future 
machine serait le decile permettant le redressement 
cette annee, Les bourdes commerciales ne sent pas 
I'apanage de nos compatriotes, c'est plutot rassurant 



Ada, langage longtemps cite comme la reussite fran- 
Caise aux U.S.A. et choisi par le Pentagone pour uni- 
que langage de ses ordinateurs, fait un flop complet. 
En effet, aucun systeme n'est sorti, en 5 ans, utilisant 
ce langage comme base. Moralite, les opposants 
commencent a parler d'un echec vrai el le Penta- 
gone, devant la resistance de ses programmeurs a 
abandonner COBOL, envisage de faire machine 
arriere. Ce serait la fin de la standardisation esperee 
car cet organisme utilise a I'heure actuelle plus de 
500 langages differents. Pas mal, non ? 



Puisque nous en sommes a parler proces, IBM a 
gagne le sien centre Matsushita qui, apparemment 
copiait le BIOS (Basic input/output system) du PC- 
DOS, pour equiper ses mactiines au standard PC, Le 
GOupable a accepte de payer aux alentours de 
2 000 000 de dollars a IBM, ce qui n'est sans doute 
pas enorme en comparaison des sommes investies 
dans ce standard par les societes japonaises. 

Une commission officielle du ministere du commerce 
amerlcain a rendu un rapport severe envers la politi- 
que commerciale japonaise. I'accusant notamment 
de ne pas suivre des engagements pris, dans le 
domains de lelectronique, vis-a-vis des Americains, 
lors dune reunion au sommet en juillet dernier. En 
conclusion, le rapport demands des sanctions eco- 
nomiques st douanieres pour Iss fabricants japonais 
de composants. II semble que le gouvernsmsnt solt 
dscide a suivre ce conssil. Si c'est Is cas, cela repre- 
sentera une premiere dans cette categoris d'eclian- 
ges ou les U.S.A. etaient beneficiaires jusquen 1985 
mais ou leur deficit ss creuse maintenant a une 
Vitesse qui semble preoccupante. 

Les programmes de traductions apparaissent petit a 
petit. En voici un qui permet de convertir un texts du 
japonais en anglais et reciproqusment. II permet la 
traduction de 2 000 mots japonais en anglais par 
heure, dit la publicite. II me semblait que le japonais 
n'etait pas fait de mots, mais de pictogrammss, mais 
lis doivent savoir mieux que moi de quo! il s'agit. Un 
dictionnaire de plus ds 100 000 mots est utiliss dans 
cliaque langue pour la version de bass et vingt dic- 
tionnaires specialises sent disponibles, couvrant des 
domaines allanl de la medecins a linformatique en 
passant par la biologie, Un programme complet, mais 
dont j'aimerais bien voir la qualite de la traduction, 
problems majeur dans un monde ou Is contrs-sens st 
les faux-amis sent legions. Un groups de mathemati- 
cisns anglais, dans les annees 60, avait d'ailleurs 
conclu que de telles mactiinss a traduire ne ssraient 
jamais fiables a cause de la trop grands complexite 
des problemes rencontres. Prix du programme : 
4,145 $, ce qui n'est pas hen, puisque cela repre- 
sents pres de 25 000 francs. 

Encore un proces, mais plus souriant cslui-ci, Le dis- 
thbuteur dun jeu d'aventures japonais a reussi a faire 
bloquer la parution d'un magazine qui revelait la solu- 
tion du jeu et des indices pour y parvenir. Le fabricant 
justifie son intervention par le tort que ds telles preci- 
sions poiirraient porter a son jeu qui, comme la plu- 
part des jeux de ce type, ne valent que par leur 
mystere et ne sent plus interessants lorsque la passion 
de le trouver est dissipee. 

Et encore un, Lotus, distributsur de 1-2-3, poursuit la 
societe de Adam Osborne qui diffuse VP-Planner, un 



programme japonais qui resssmble un peu trop a 1-2- 
3. II semble en fait que VP-Planner soit beaucoup plus 
puissant, plus simple st surtout moins couteux que 1- 
2-3. Mais, pour s'attaquer au marc he de 1-2-3, il a du 
rsprendre ses commandss et lailurs ds son interfacs 
utilisateur, afin de ne pas derouter les clients potsn- 
tiels. Moralits, VP-Plannsr, qui est sur le marche 
depuis plus ds deux ans, commence a prendre de 
grosses parts de marche a 1-2-3, dont des positions 
dans Iss ministerss et organismss officiels U.S. Lotus, 
devant le recul de son produit prefere bloquer un pro- 
duit concurrent plutot que faire progresser le sien. II 
faut dire que 1 -2-3 vaut 400 $ et que VP-Planner, plus 
complet et rapide, en coCits 99. La concurrence est 
sans espoir pour Lotus. En fait, ce proces est tres 
suivi ici, car si tout le monde est pour une certains 
protection de I'idee des programmes, chacun pense 
que Is copyhgtit n'est pas defsndable dans certains 
cas comme celui-ci ou il n'y a pas plagiat mais ame- 
lioration d'un produit, Simplement, pour ne pas perdre 
dss clients habitues a 1-2-3, VP-Planner ressembte a 
1-2-3. Meme les plus fanatiques dss defenssurs du 
copyright esperent que Lotus va perdre, car sinon 
cela smpechera des programmes comportant de tres 
bonnes idees nouvslles de sortir et fera perdre beau- 
coup ds temps a I'lnnovation informatique, Ainsi, cela 
va de soi, qu'a la baisse du prix des programmes. 

Vous le savez sans doute, Iss USA ont impose des 
taxes sur les produits japonais. La raison en est simple, 
les Japonais proposent, a des prix defiant touts con- 
currence, des produits dont le concept a ete defini aux 
USA, en s'affranchissant ainsi des frais de recherctis 
et ds developpements. Or, ces frais sont tres elsves. 
Moraiite, ce qui coute dix dollars ici revient a 10 cents 
au Japon, La demssure est telle que toutes Iss socis- 
tes electroniques americaines deviennent deficitairss 
et ne peuvent I'accspter. La reaction americains est a 
la mesure, ou a la demesurs, de son exasperation. 
C'est pourquoi voyant cela, les autorites japonaises ont 
tente dss ouvertures, mais il faut esperer qu'un verita- 
ble echange commercial soit possible, car sinon il n'est 
sans douts pas utopique ds comparer la situation ds 
I'Occident dss annses 2000 et cells de I'Allsmagne 
des annees 30 apres I'humiliation de la grands guerre 
et la crise economique. 

Et pourtant, la demande encomposants a augments de 
plus de 20 % cette annee, cs qui devrait psrmettre a 
tout le monde de vivre, et meme plus. 

La societe Microsoft, reconnus entre autres pour sa 
possitailite a sortir des produits sans «bugs», va sans 
doute perdre un peu de son aura. En effet, la version de 
Word qui vient ds sortir, la 3,0 pour Is MAC, sst tene- 
ment bugges dans des commandes importantes, que 
la vente est stoppee, quoi qu'en disent les porte-parole 
de la firme. Cela est d'autant plus grave pour Microsoft 
que de tres grcs invsstissements ont ete engages 
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dans ce programme et que la concurrence annonce 
deja beaucoup mieux. Writer + (cocorico, c'est fran- 
Cais) et FullWrite proposent tout ce qui est dans Word, 
plus bien d'autres commandes et de la simplicite. Cela 
fait beaucoup. Cela dit, ces problemes ne devraient' 
pas affecter la version franpaise qui sortira bien plus 
tard que la version US corrlgee, Cela n'inquiete pas 
Microsoft qui vient d'entrer dans le monde de la grande 
informatique. En effet, (BM a annonce que Microsoft 
serait le fournisseur officiel de son systeme d'exploita- 
tion pour les nouveaux PS/2 et que ce systeme sera 
d'une tres grande puissance. Par cette annonce, IBM a 
voulu visiblement mettre Microsoft en orbite et eliminer 
les autres concun-ents potentiels. Gageons que cette 
annonce atteindra cet objectif. 

Une grande societe de Miami est poursuivie pour un 
motif qui semble devenir une raison frequente de pro- 
ces. Elle est poursuivie pour exportation de PC compa- 
tibles vers Cuba. Elle est passible de 10 ans d'emprl- 
sonnement pour ses dirigeants, et de 50 000 $ 
d'amende parmembre de son conseil d'administration, 
pour intelligence avec I'ennemi, commerce avec 
I'ennemi. Cela pour une tivraison de plus de 1 million de 
dollars qui avait transite par Panama. Pour leur 
defense, les patrons de cette societe ont plaide qu'ils 
ne faisaient rien de plus grave que I'etat equatorien qui 
fournit cfiaque annee une tonne de compatibles PC a 
I'URSS. Avec ce pays, on ne compte pas en unite, mais 
en tonnes, meme pour des ordinateurs. Geci dit, vous 
venez sans doute d'apprendre que I'Equateur est un 
producteur de materiel informatique. 

La revue Fortune, specialiste des etudes des revenus 
des entreprises, vient de publier son bilan annuel pour 
1986, IBM est respectivement 1, 4, 2 et 15 dans les 
domaines de la valeur globale de ses actions, en 
valours de ses ventes, en profits et en argent en 
caisse, Le relatit retard de ce dernier rang est du au fait 
que les banques ont traditionnellement une masse criti- 
que superieure. Cela dit, cela represente un bond en 
avant pour (BM qui se retrouve plus haut que jamais, 

Le premier disque optique pour micro-ordinateur est 
sorti, II est produit par Matsushtita et sera livre avec les 
ordinateurs de la gamme PS/2 de chez IBM. C'est la 
un grand evenement, a plus d'un titre. En effet, c'est le 
premier disque optique disponible. II sera done livre en 
serie a la demande et il fait I'objet d'une cooperation 
US-Japon. C'est done vraiment un pas important pour 
beaucoup de gens. 

Soyons heureux, les problemes de poursuites pour 
copies existent aussi aux pays du plagiat. NEC, spe- 
cialiste de la copie de puces, poursuit Seiko-Epson 
pour copie de son ordinateur, le NEC PC-9801. Cela 



represente une premiere qui est suivie de tres pres par 
d'autres firmesjaponaises qui ont du materiel compati- 
ble pret a sortir Si le proces se passe mal pour Seiko, 
les autres firmes devront arreter la production de com- 
patibles. Au Japon, le NEC est un standard comme le 
PC dans le reste du monde. 

Un signe important de la vitalite du marche des ordina- 
teurs dans la vallee : le prix des materiels d'occasion a 
augmente de 20 % en moyenne Tan dernier, ce qui 
prouve que la demande surpasse I'offre de neuf. Les 
vedettes sont Apple et Compaq, dont les prix de 
I'occasion ont augmente de plus de 60 % en moyenne. 

Un nouveau programme, pour I'instant pour IBM seule- 
ment, permet de reconstruire des donnees detruites 
sur des disques durs et souples. Selon sa publicite, il 
fait usage de techniques evoluees d'intelligence artifi- 
cielle et possede plusieurs cordes a son arc puisqu'il 
lui_ est possible de detecter, reparer, reconstruire et 
meme prevenir dans une certaine mesure. Pour cela, le 
programme teste toutes les pistes d'un disque et 
deplace des donnees si une piste lui semble poser le 
moindre probleme. N'etant pas un specialiste, je ne 
vous donnerai pas de details supplementaires mais les 
essais semblent tres prometteurs. Vivement une ver- 
sion sur les plus petits micros. 

Je viens de lire une publicite d'un nouveau genre, pour 
les revues de micro-informatique en tous cas. Un 
groupe d'avocats propose ses services pour tous les 
types de plagiats, copies et autres infractions aux lois 
sur ie copyright. Le marche est porteur, c'est certain, 
mais malgre tout c'est la premiere fois que ce type 
d'annonce parait, a ma connaissance, II taut de tout 
pour faire evoluer le monde de la micro, mais ce n'est 
sans doute pas le plus sympathique. 

Bodand, toujours dynamique, vient de faire deux 
annonces interessantes. Tout d'abord, la creation 
d'une revue destinee aux utilisateurs de TurboPascal, 
qui sera mensuelle et permettra aux abonnes de se 
maintenir au couranl des problemes, des solutions 
sophistiquees developpees par certains, etc, L'autre 
annonce est pour le developpement, avec Willey and 
Sons, d'une gamme de livres destines aux ecoliers et 
aux lyceens (americains pour I'instant), pour mieux 
approcher I'utilisation des langages de chez Borland, 
Cela devrait inciter les ecoles et lycees a utiliser les 
Turbo (Pascal, Basic et Prolog). Bravo encore a cette 
societe vraiment dynamique. 

Aldus, qui proposera sous peu ses nouveaux Page- 
Maker, pour Mac et PC, a annonce que ces deux pro- 
grammes sont totalement similaires, avec plus de SO % 
du code semblable et que les fictiiers sont au meme 



format sur les deux machinGS. C'est sans doute le pre- 
mier pas vers un nouveau type de compatibilite, moins 
large mais tres imporlante, celle qui permet de recupe- 
ret des fichiers sur n'importe quel ordinateur venant de 
n'importe ou. Ce sera alors une nouvelle vision de ia 
cotnpatibiiite, entierement "Soft= et tres Jmportante pour 
les professionnels utJIJsant des donnees dont la prove- 
nance ne peut pas etre toujours connue ou au bon for- 
mat. 

Vous vous souvenez sans doute de ce que j'ecrivais 
voila queiques mois sur le marctie du disque dur. Je 
vous disais alors que les prix, en chute libre, temoi- 
gnaient de la valonte de certains d'en decoudre et 
d'eiiminer la concurrence. Ceci est devenu une realite 
puisque sur les 80 socjetes qui en proposaient I'an der- 
nier, deja 19 ont fait faillite, dont Micali et peut-etre 
bientot Corvus. Ce ne sent pas des petites compa- 
gnies et ce n'en est que plus significatif. Les compa- 
gnies qui survivent ont en general une structure soit 
tres dynamique (SuperMac) soit un personnel a peu 
pres inexistant et une vente par correspondance uni- 
quement. Ces deux phenomenes sembient etre ia cle 
de la Ipngevite dans un domaine ou ia chasse est 
ouverte. 

Jean-Louis Gassee, ancien patron d'Apple France et 
maintenant numero 3 d' Apple USA, est une tres grande 
vedette depuis la sortie de I'Open Mac, le Mac II. En 
effet, la rumeur s'est largement repandue que c'est lui 
qui I'a voulu. De plus, il a mis a profit cette sortie pour 
publier un nouveau livre, "La troisieme pomms", qui fait 
etat d'un certain nombre de points de -philosophies 
informatique, d'Apple. etc. Comme la ruee des Francais 
dans la region deviant un phenomene de societe, cela 
fait un ensemble qui porte Gassee a une celebrite pas 
entierement innocente ou involontaire. 

Une nouvelle qui fera grand plaisir aux utilisateurs de 
dinosaures ; un nouveau WordStar pour CP/M est 
sorti. Cela fait plaisir de savoir que ce systeme 
d'exploitation n'est pas entierement abandonne. En 
effet, il semblait que GP/M soit definitivement passe a 
I'etat d'animal de musee ainsi que WordStar d'ailleurs, 
meme si ce dernier reste la reference du moment dans 
le domaine des traitements de textes sur PC et compa- 
tibles. 

Le Commodore Show a tenu ses promesses cette 
annee, apportant son lot de nouveautes, Les conferen- 
ciers furent passionnants, de Jim Butterfield a Brian 
Dougherty en passant par le createur de Aztec C, Jim 
Goodnow. Parmi les produits attendus depuis tant de 
temps qu'on ne les esperait plus, citons WordPerfect, 
le traitement de texte qui fait la pluie et le beau temps 
sur les PC en ce moment, en version Amiga, avec 
I'interface Intuition qui ressemble un peu a celle du 
Mac. II y a tout dans ce traitement de texte, du verifica- 



teur d'orthograplie au 'colonnage, avec compatibilite 
avec les fichiers de WordPerfect sur IBM. Un bien beau 
produit. Pour ceux qui en veulent plus. The Calligrapher 
permet de creer des polices de caracteres pour avoir la 
police qu'il vous taut quand il vous la faut. Vous pouvez 
utiliser 16 couleurs dont la faille maximale est de 160 
par 256 pixels. Le Kerning est reglable, il est possible 
de faire tourner chaque caractere, de le renverser, de 
le redimensionner, de le rempliravec un dessin person- 
nel, etc. Un vrai produit avec une presentation profes- 
sionnelle et un prix d'amateur (29 $). Je ne peux que le 
recommander sans restrictions si vous etes I'heureux 
possesseur d'un Amiga, Bien d'autres programmes 
etaient donnes, ainsi que des cartes d'extensions, dont 
une carte 68020/68881, tournant a 16 MHz, soit deux 
fois la Vitesse du Mac + . Un bijou qui etait montre avec 
des jeux d'arcades, qui tournent ainsi a une vitesse 
telle que les plus aguerris ne pouvaient jouer a des 
niveaux eleves, Bien sur, pour 1 300 $, ce n'est pas a 
la portee de chaque bourse, Mais le bilan de cette 
exposition est que I'Amiga est bien vivant, ce qui fait 
tres plaisir car il n'est pas juste que cet ordinateur, 
meilleur et moins cher que la concurrence, n'ait pas de 
Eucces. Longue vie a I'Amiga. 

Pour ne pas etre en reste, son concurrent de toujours, 
I'Atah ST avait aussi sa fete. Une fete gachee par la 
decision d' Atari de ne pas y venir pour de mediocres 
raisons commerciales. Parmi les vedettes de ce salon,, 
WordPerfect. Pour des details, remonter de vingt lignes 
car c'est la meme version qui est adaptee ici. La base, 
dans les deux cas, est la version 4.1 pour PC. Ici, c'est 
GEM qui serf d'interface et plus que jamais I'expres- 
sion "elle ressemble a celle du Mac- est de circons- 
tance. Nous avons deja parle de GEM, done vous 
reporter a un precedent numero pour cela. Antic propo- 
sait un produit tres drole, de visualisation 3D, avec des 
lunettes a verres rouge et bleu. Le resultat est impres- 
sionnant mais il est tres difficile de concevoir des ima- 
ges. D'ailleurs, la demonstration est tres explicife de 
par son temps d'affichage de chaque image- Mais le 
resultat est tres propre, surtout en animation. Le clou 
de la fete fut malgre tout Data Pacific qui propose la 
cartouche permettant d'emuler un Mac. La nouvelle 
version fait la meme chose, mais avec une emulation 
Mac + . Un tres grand produit, a tres petit prix (moins de 
300 $). Mais en plus, maintenant, la societe propose un 
programme qui permet de transformer un lecteur d' Atari 
St en lecteur de Mac, assurant la lecture directe de 
programmes (meme proteges) Mac sur I'Atah. Ceci 
marque la fin de la periode de frustration pour les pro- 
prietaires de I'emulateur qui devait amener les pro- 
grammes par vole de Modem ou par connexion directe 
d'un Mac et d'un Atah, empechant totalement d' utiliser 
des programmes proteges. Je vous le disais, c'est un 
tres bon produit. Pour le reste, beaucoup de jeux : 
Balance of Power et ChessMaster 2000, entre autres. 
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II y a bientot trois ans demarrait ce travail de fond. Plus de vingt auteurs 
etaient sollicites pour concentrer en trois tomes les techniques du son. Le 
premier tome vient de paraitre. II traite de FAcoustique fondamentale, des 
Sources acoustiques, de I Acoustique architecturale, de la Perception 
auditive, des .Notions tondamentales de I'Electricite, de 
I'Enregistrement magnetique ainsi que de la Tectinologie audio- 
numerique. 

L'equipe des plus grands specialistes actuals a ete animee par Denis 
Mercier. Ensemble, lis ont mis sur pied un ouvrage actuellement unique au 
monde. 
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LOGICIELS : 
DELITS ET PIRATAGE 



Au cours du dernier SICOB, s'est tenue une reunion d'informaticiens du Barreau de 
Paris intitulee =lnformatique el Telematique», le piratage sanctionne ? 
II ne fait aucun doute que le piratage en informatique a lieu de maniere courante et 
parfois meme industrielle (Sud-Est asiatique). Or la France possede un certain nombre 
de textes de lois a ce sujet. II nous a semble interessant de retenir quelques points de 
lintervention de Maitre Henri Alterman, avocat a la Cour de Paris et membre du Conseil 
de I'Ordre. 

1. Un des premiers delits en informatique, sans doute te moins connu, concerne 
I'utilisation de fichiers informatiques. Toute personne (ou societe) detenant des fictiiers 
est obligee de declarer a la CNIL I'existence des informations qu'elfe detient,. 
La loi du 6 Janvier 1987 precise les delits et les contraventions : 

1 - absence de declaration en cas de traitement d' informations nominatives (ou 

empli errone de la norme simplifiee) par I'Organisme qui gere les fichiers : 6 mois 
a 3 ans de prison et ou 2 000 a 200 000 F d'amende. 

2 - collecte et conservation iiiicite d' informations nominatives suivant les moyens 

employes (art. 25, 26, 27, 28, 30 ou 31) : 1 a 5 ans de prison et ou 20 000 a 
200 000 F d'amende. 

3 - divulgation d' informations nominatives (delit volontaire ou Involontaire) : 2 a 6 

mois de prison ou 2 000 a 20 000 F d'amende. 

4 - detournement de linallte. 

C'est le delit le plus grave : 1 a 5 ans de prison et 20 000 a 2 000 000 de francs 
d'amende. 

5 - contraventions de Seme ciasse (decret du 23. 12. 1981) 

• entrave a faction de la CNIL 

• non-respect de I'obligation d'information 

• obstacle au droit d'acces 

• Oibs(ac/e au droit de rectification. 

2. Passons au delit le plus connu : le piratage. Le piratage de logiciel est une pratique 
tres utilisee par de tres nombreux possesseurs de micro-ordinateurs, pratique 
egalement courante chez les professionnels utilisant des systemes beaucoup plus 
gros. 

Apres un certain flou, la France s'est dotee en 1985 dune loi protegeant les 
concepteurs de logiciels. II s'agit de la loi du Sjuillel 1985. En fait, des 1957, 11 existait 
une reelle protection du droit d'auteur, mais il aura fallu attendre 1985 pour une 
application concrete des textes. 
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LOI DU 3 JUILLET 1985 (relative aux droits d'auteur et aux droits 
tnterpretes, des producteurs de phonogrammes el de videogrammes el des 
Entreprises de commufiica t/on audiovisuelle). 

(Titre V et 6). 

Article 47 ''par derogation au 2°/ de I'art. 41 de la Loi n" 57-298 du 11 Mars 1957 

precitee. toute reproduction autre que I'etablissement d'une copie de sauvegarde par 

I'utilisateur ainsi que toute utilisation dun logiciel non expressemeni autorisee par 

I'auteur ou ses ayants-droits. est passible des sanctions prevues par ladite Loi". 

A la verite, le texte renvoie egalement a la Loi de 57 pour les incriminations (art. 3). 

Les logiciels sont done proteges par ta Loi de 57 elle-meme et pas seulement par la 

Loi du 3 Juillet 1985. 

II faut se reporter aux articles 425 et suivants du Code Penal. 

"Constitue une contrefar^on la reproduction du logiciel sans autorisation de I'auteur 

quel que soil le logiciel et quel que soit le support et meme s'il s'agit d'une copie 

resen/ee a I'usage prive du copiste : seule la copie de sauvegarde est autorisee fpa 

peut etre deux copies...)." 

"Constitue egalement une contrefaQon I'adaptation ou i'elaboration d'un programme 

derive sans I'accord de i'auteur". 

"Constitue encore une contrefaqon /'utilisation non autorisee du programme." 

"Constitue enfin une contrefagon le debit, I' importation, i' exportation, la division, la 

diffusion d'un logiciel contretait" 

La sanction est prevue a I'article 425 du Code Penal : c'est une amende de 6 000 F a 

120 000 F et ou une peine de prison de 3 mois a deux ans ; ladite peine est doubles 

en cas de recidive et le Tribunal peut prononcer la fermeture de I'etablissement 

exploits pour une duree pouvant aller jusqu'a 5 ans. 

Enfin, meme hors le cas de recidive, le Tribunal peut ordonner la confiscation des 

recettes procuress par la contrstaQOn ainsi que la confiscation des objsts 

contrefaisants St Iss differentes mesures ds publicite. 

3. Le Iroisieme volet concerne I'acces a des systemes sans autorisation. 

Une des donnees les plus floues concerne le vol de temps machine. II est difficile de 

parler de vol du fait qu'il n'y a aucune -soustraction-. En effet, les informations restent 

dans la machine, 11 n'y a done pas vol. Toutefois, lors d'une discussion recente avec 

des specialistes, nous avons appris que, dans ce cas, 11 etait toujours possible de 

detourner le probleme en cas de proces. Le plaignant remplace la notion de vol de 

temps machine par un detournement d'energie. En effet, dans ce cas, le -pirate- a 

utilise abusivement lelectricite du proprielaire de la machine pour en extraire des 

informations. Toutefois, une affaire recente a inclus dans le proces la notion de vol 

d' informations. 

Plusieurs autres mefaits peuvent etre reproches aux "pirates» : 

- I'escroquerie 

- le faux 

- Tabus de confiance 

- le recel 



CONCLUSION 

On evalue a plus de trois milliards de francs (deux fois plus selon certains specialistes) 
le montant des escroqueries a I'informatique en 1986. Aujourdhui, meme si certains 
aspects de la loi ne sont pas encore tres precis, la notion de droit d'auteur est 
precisee surle plan juridique par la loi du 3 juillet 1985 modifiant laloi du 1 1 mars 1957. 
Les logiciels sont done desormais proteges. 

II y a eu, ces derniers mois, plusieurs descentes de police et plusieurs proces, II est 
evident que chaque conducteur automobile connait le code de la route. II sait ce qu'il 
risque en roulant a 150 km/h sur une route normale. Les "pirates» en informatique 
doivent eux aussi faire attention, la chance a ses llmites, 

' Extraits de la conference de Martre Alterman : reunion d'information du Barreau de 
Paris dans le cadre du 38^ SiCOB. 



Logiciels scientifiques 
pour electron iciens 



Charles-Henry Delaleu 



Depuis quelques numeros, nous avons aborde des logiciels generaux. Ce mois nous 
allons faire plaisir aux scientifiques et pius parlicuiierement aux electroniciens. En 
effet, les progicieis Hewlett-Packard leur sont particuiierement destines. II s'agit de 
trois programmes executabies sur les series 200 et 300 de la marque, 
Les trois applications sont : 

- un progiciei d' analyse de circuit alternatif, 

- un progiciei d'analyse de fonctions de transfer!, 

- un progiciei d'analyse de signaux, 

Ces programmes, ecrits en Basic, ne sont pas proteges afin de subir d'eventuelles 

modifications. Dans certains cas, cette possibilite peut etre tres interessante. Nous en 

donnerons un exemple pour le troisieme des progicieis testes. Le Basic utilise est le 

Basic Hewlett-Packard qui a peu de chanoe de pouvoir rapidement etre traduit en un 

autre Basic style MS-GWBASIC. Le Basic HP est en effet un super-Basic qui reprend 

les bases du Basic, du Fortran, du PL/I et de I'Algol. Pour certaines applications 

repetitives, 11 sera possible de supprimer quelques sous-programmes et de chainer 

ceux que I'on desire garder : ceci permettra de gagner en vitesse. Ces programmes 

soni remarquablement ecrits. lis tienneni compte de toutes les erreurs possibles, ainsi 

que des problemes d'entrees-sorties, Bref, ce sont des progicieis PRO pour des 

PROS. 

L'arrivee des micro-ordinateurs et des ordinateurs de table est en train de 

profondement modifier le travail des laboratoires et des bureaux d'etudes en 

electronique. En effet, le rapport qualite/prix de ces types d'appareils est de plus en 

plus surprenant. Si ces dernieres annees, seules les grandes et riches entreprises 

pouvaient investir dans des systemes d'informatique techniques et scientifiques, il ne 

fait aucun doute qu'une democratisation profonde se profile. 

Generalement, les ordinateurs en technique n'ont pas besoin d' unites de stockage de 

masses importantes, les criteres preponderanis sont : la vitesse de calcul, 

I'inferfatpage multiple, le graphisme, 

Des lors, il est souhaitable d'utiiiser pour ce genre de taches des machines equipees 

de processeurs 16 bits, voire 32 bits. Or le prix d'un bon et vrai 16 bits est abordable 

aujourd'hui. 

Dans un laboratoire, les techniciens sont souvent occupes par des taches repetitives. 

Ces dernieres peuvent etre avantageusement effectuees par un calculateur. II est 

possible, dans ces conditions, d'amortir tres vite la machine. 
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LA SIMULATION DE CIRCUITS ELECTRONIQUES 

II existe deux manieres de simuler des circuits electroniques : 

- par equation mathematique, 

- par creation dune serie de nceuds simules. 
Pour ce faire, les deux progiciels utilises sont : 

- AC Circuit Analysis (HP 98825 A) 

- Linear Systems Analysis (HP 98826 A) 

AC CIRCUIT ANALYSIS 

Ce titre pourrait se traduire en frangais par : analyse de circuit en courant alternatif. II 
s'agit d'un programme pouvant analyser et simuler la reaction de circuits lineaires, en 
tenant compte de la tolerance des composants utilises. Les composants utilisables 
sont : les resistances, les condensateurs, les inductances et les composants actifs 
(transistors, amplificateurs operationnels, etc.). II suffit d' assembler divers composants 
en leur donnant une valeur et en les plagant sous forme de nceuds. Plusieurs nceuds 
peuvent etre cliaines, L'ensemble s'echafaude sous la forme d'un tableau. On indique 
la nature et la valeur des composants ainsi que leur point de connexion. Chaque 
tableau peut etre sauvegarde sur memoire de masse, 

II est possible, une fois le tableau realise, de connaitre les caracteristiques du circuit 
ainsi simule. Pour ceci, deux cinoix sont prevus ; soit transmettre en frequence point 
par point ou plus simplement en frequence glissante (tineaire ou logarithmique). 
Pour chaque frequence, il est possible de connaitre la reponse en amplitude, en pfiase 
et le delai de chaque circuit analyse et simule. L'impedance peut etre trailee. Si une 
tolerance est demandee pour les composants utilises, les resultats sont fournis en 
consequence. Les valeurs minimales et maximales sont alors connues. 
Si des analyses doivent eire faites en continu, il est possible de s'en rapprociier par 
une valeur en frequence infiniment faible. La vaieur minimale acceptable est 10" '^ Hz. 
La programmaiion de tableaux comprenant les differents composants est tres facile a 
faire. II suffit de repondre aux differentes questions posees par le programme. 
Example ; 

Soit le filtre RC de la figure 1. Nous voulons connaitre les caracteristiques de ce filtre 
passe-bas entre 100 kHz et 100 MHz. Nous sommes interesses par la reponse en 
amplitude et la reponse en phase, II suffit de choisir le mode d'affichage et de lancer la 
lecture du tableau, 

L'ordre de programmation commence par les resistances, puis les condensateurs, les 
selfs, etc. 



INPUT=NDDE 1 



DUTPUT=NaDE 3 



GROUND=NDDE O 



COMPONENT 

RESISTOR 1 
RESISTOR 2 
CAPACITOR 1 

Listing du circuit RC. 



PERCENT NODE CONNECTIONS 
TOLERANCE FROM, TO, (+) , (-) 




1® 
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Sur la figure 1 A, nous avons numerote chaque nceud. II y en a trois, le nceud est, par 
convention, reserve a la masse. La premiere question a laquelle il convient de repondre 
est : 

- Valeur de la resistance n° 1 ? 

Nous tapons 90 puis la seconde question est : 

- Position de la resistance n" 1 ? 

Nous tapons 1,3 pour indiquer que la resistance se trouve entre les nceuds 1 et 3 de 
notre circuit. Puis c'est le tour de la resistance n° 2. Lorsque Ion ne desire plus enfrer 
de resistance, il suffit de taper comme valeur, et Ton passe aux condensateurs. Le 
meme processus est repete pour ciiaque type de composants. Une fois le tableau 
enregistre, il est possible de le lister et de verifier que tout est correct 
Sur la figure 1 B est presentee la courbe amplitude/frequence et sur 1 C, la courbe 
pfiase/ frequence. 
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Le second et dernier exemple concerne la simulation de la courbe amplitude/ 
frequence d'un filtre passe-bande realise autour dun amplificateur operationnel. Le 
circuit est presents sur la figure 2 A et le resultat sur la figure 2 B, 



INPUT=NaDE 1 



DUTPUT=NDDE 4 



BRDUND=NODE 



COMPDNEIMT 

RESISTOR 1 
RESISTOR 2 
RESISTOR 3 
CAPACITOR 1 
CAPACITOR 2 
CAPACITOR 3 
SOURCE 1 

Listing du filtre actif. 



VALUE 

100 ohm 
100 kotim 
1 kohm 
1.59 up 
1.59 nF 
159 nF 
1 kmtio 



PERCENT NODE CONNECTIONS 
TOLERANCE FROM, TD, (+) , (-) 




® l-5S»iF 



Le circuit original. 




Le circuit equivalent. 
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flMPLI OP ! FILTRE 



.1 



3 ^ 5 6.7im- 




^ 



Fig. 2-B 

tl est possible en version de base [256 ko de RAM) de realiser un tableau de 99 nceuds. 

Chaque carte de 256 ko permet d'augmenter dans la meme proportion I'ensemble du 

montage. 

Grace a ce programme, il est possible en quelques minutes de connaftre le 

fonctionnement d'un circuit sans avoir a effectuer un quelconque montage. Lbs gains 

obtenus en temps sont considerables, Le seul obstacle est la representation 

equivalente de circuits utilisant des semi-conducteurs, mais cela est ires vite assimile, 

LINEAR SYSTEM ANALYSIS 

Le progiciel Linear System Analysis peut etre un complement ideal pour le progiciel AC 
Circuit Analysis. II pourra aussi servir dans de nombreuses applications dont I'etude 
des asservissements par exemple. Ce package fait appel aux mattiematiques, Grace a 
cela, il est possible d'obtenir les caracteristiques tectiniques d'un circuit, d'un 
systeme, en partant d'une ou de plusieurs fonctions de transfert. Ces fonctions 
peuuent etre simples, multiples, en serie et/ou en parallele, avec ou sans contre- 
reaction. Chaque cas est alors organise sous la torme d'arbre binaire, Cela peut 
paraitre complique pour certains, mais si vous avez la maftrise des calculs de fonctions 
de transfert, le saut a I' utilisation d'arbre binaire ne pose aucun probleme. 
Exemple ; 

Nous n'entrerons pas dans les details afin de ne pas paraitre difficile envers ceux qui 
ont passe leur cours de maths a I'annexe. Notons que comme pour le programme 
precedent, I'ensemble des commandes est facile a maitriser Tout se passe tres vite. II 
suffit de suivre un ordre chronologique. II est possible de jouer sur I'amortissement 
dans I'elaboration d'une simulation. Les resultats obtenus procurent les diagrammes 
de Bode (reponses en amplitude et en phase) etdeNyquist{stabilite d'un circuit). II est 
possible de connaftre la reponse impulsionnelle. Soit la fonction de transfert : 

T„ ^ "^ 

'^' 5= + 2 £ av S + ut,' 

£ - coefficient de surtension (ex. : 0,25, 0,5, 1, etc.) 

Prenons comme base o^ - 4 et £ = 0,25, nous avons done : 



T,si =- 



16 
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Tout se passe tres simplement. L'ordinateur commence par nous demander I'ordre du 
numerateur : dans notre cas, ; puis sa valeur : ici 16. Puis on passe au denominateur. 
L'ordre le plus eleve est 2 pour notre exemple, Une fois entre lordre maximum (2), 
l'ordinateur nous demande ies vaieurs de cliaque ordre : 

Pour I'ordre -- 16 

Pour I'ordre 1 -• 12 

Pour I'ordre 2 -• 1. 
Ici se termine la programmation de notre fonction de transfert. Comme vous pouvez le 
constater, c'estunjeu d' enfant. En figures Asont presentes Ies diagrammes de Bode, 
en figure 3 B le diagramme de Nyquist, et en 3 C la reponse impulsionnelle, notre 
equation. 
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' IMPULSE RESPONSE 
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ANALYSE DE SIGNAUX OU FFT 

Le progiciel d'analyse de signaux Hewlett-Packard HP 98827 A permet d'acceder a 
toutes les proprietes de signaux dans les domaines du temps et de la frequence. 
Le traitement du signal peut etre applique a de nombreuses disciplines, notons : 

- I'electronique, 

- I'acoustique, 

- la mecanique, etc. 
Les signaux : 

II existe deux types de signaux : 

- les signaux certains, 

- les signaux aleatoires. 

Un signal transports un message. Ce dernier peut prendre une forme codee ou 

modulee. Elle sera codee dans le cas d'un ordinateur et modulee dans le cas d'un 

circuit analogique, Un signal possede une nature ptiysique et une nature 

mathematique. Le signal certain sera un signal dont la fonction fait reference au temps. 

Le meilleur exemple nous est donne par les signaux periodiques. On appellera signal 

aleatoire un signal que Ton ne peut jamais repeter deux fois de maniere exactement 

identique. Ces signaux aleatoires ne peuwent etre caracterises que de maniere 

sfatique. 

Les termes utilises en analyse de signaux : 

L'analyse de signaux est devenue tres puissante. En fait, il s'agit plus exactement de 

trois analyses principales : 

- l'analyse de densite spectrale, 

- la correlation, 

- la reponse en frequence. 
L'analyse de densite spectrale : 

L'analyse de densite spectrale de puissance et de densite spectrale naturelle de 

puissance nous permet d'etudier la repartition de la puissance pour un signal unique. 

Pour deux canaux, nous aurons la repartition de la puissance mutuelle (ou croisee) en 

fonction de la frequence. 

Correlation : 

La fonction de cofierence demontre les influences qui peuuent exister entre deux 

signaux. 
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Reponse en frequence : 

II s'agit de la fonction de transfer! du dJspositif etudie. 

LeHP98827 A> 

II existe deux methodes pour realiser une analyse de signaux : 

- soil faire appel a un analyseur de signaux, 

- soil effectuer des calculs grace a un ordinateur. 

C'est la seconds solution que retient ce progtciel. II permet les analyses de n'importe 
quel signal dans le domaine du temps ou de la frequence sur un ou deux canaux. 
II est possible de travailler sur un signal simule au clavier, sur un signal cree par un 
synthetiseur interne ou mieux encore, a partir d'un signal enregistre en memoire de 
masse. Dans ce cas, le signal pourra etre prealablement capte ef numerise par un 
convertisseur analogique digital. 

Un pre-filtrage est possible par une serie de fenetres de mesures pre-programmees. 
L' etude peut etre effectuee sur le signal entier ou sur une simple portion. L'ensemble 
des analyses suivantes est possible ; 

- la transformee de Fourier rapide, 

- le spectre en puissance, 

- la correlation, 

- la reponse impulsionnelle. 

Les calculs peuvent etre realises avec la precision desiree, plusieurs modeles 
matliematiques sont disponibles, les resultats peuvent etre soit alpiianumeriques, soit 
graphiques, 

Lutilisation du progiciel est assez simple. Elle commence par le choix de la frequence 
d'eciiantillonnage, puis par le type de fichier sur lequel on desire travailler, puis par le 
nombre d'echantillons desires. Les differentes options seront alors choisies a I'aide de 
toucties de fonctions pre-programmees. Deux exemples ont ete ctioisis. Le premier 
concerne un bruit qui est preprogramme dans le progiciel et sert d'exemple aux 
maniements du programme. Nous avons en 4 A la forme de ce bruit dans le temps, en 
4 B la courbe de reponse de ce bruit en valeur efficace et en vaieur moyennee, en 4 C 
une fenetre de mesure possible (ici Hamming), en 4 D le meme signal flltre par la 
fenetre de Hamming et en 4 E la reponse impulsionnelle de ce bruit. Le second 
exempts qui est presente en figure 5 concerne I' utilisation de ce programme en 
acoustique. Ici la reponse impulsionnelle d'un iiaut-parleur a ete numerisee grace a un 
convertisseur. Le programme nous permet, grace a quelques modifications de 
presentation, de connai'tre la reponse en trois dimensions de ce Iiaut-parleur. Sur le 
meme graphisme, nous avons la reponse en amplitude/temps/frequence. Ceci est 
impossible a realiser avec des appareils de mesure conventionnels. C'est ici qu'on 
prend toute la mesure de I'utilisation d'un ordinateur. 
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CONCLUSION 

Ces trois programmes sont tres performants, lis autorisent toutes sortes de travaux 
non realisables aves des moyens conventionnels. Leur utilisalion n'est pas difficile et la 
documentation qui les accompagne est tres blen faite et propose des exemples 
precis. On regrettera toutefois qu'elle ne soit qu'en anglais. 
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Non, on ne s'initie pas a la micro-informatique en 5 lepons ! 

Si vous croyez au Pere Noel vous pouvez esperer apprendre I'Informatique en lisant les innombrabies =Cours de 
BASIC pour debutants" qui ont pousse comme des cliampignons dans les annees 1980. Votre ordinateur risque 
de finir ses jours au-dessus de votre armoire. 

Mais si vous voulez vraiment apprendre a programmer il faut avoir le courage de commencer par A pour arriver 
a Z. Programmer est un loisir inlelligent et peut devenir un metier passionnant, mais I'etude de la programmation 
necessite un minimum de travail et de methods. 

Etre serieux - c'est le pari que fit la revue LED-MICRO en pubtiant a partir de 1985 les 20 premiers cours de 
C. Polgar. Pius de 40 000 iecteurs les ont suivis. Ce succes nous a conduit a demander a C. Polgar de remettre 
son cours a jour et dele completer. Leresultat:un ouvrageepais (3 tomes, plus de 700 pages format 21 x27), per- 
mettant d'acquerir agreablement des connaissances solides. 



Diffusion aupres des libraJres assures exclusivement par 
les Editions Eyrolles, 

Initiation a la micro-informatique C. Polgar 

Bon de commande a retourner aux Editions Frequences 

1, boulevard Ney 75018 Paris. 

Je desire receuoir le tome 1 D 140 F 1130 F + 10 Fde trais de Dort) 
ieiome 2 D 140 F(130 F + 10 F de (rais de port) 
letome3 D 200 F(190 F + 10 F de frais de port) 

Ci-]oint mon reglement par : 

D CCP a Clieque bancaite D Mandal 

Nom 

Preriom 

Adresse 

Code postal Ville 



Une seule 

parmi pres de 600 lettres 

de Iecteurs : 



».'<r.i*,:s.«^ 






;i.""'s 



»S'S»"!" 



""irsiM-fiw" , 



.> <,T;""'i;.>„c>s> ( 



Initiation a la 

Micro-lnformatique 

1^' Cycle 

Tome 3 

(enfin paru !) 



3.16 (Suite et fin) L'aff ichage 



t Etude des instructions permettant d'etfectuer ties presentations -ev 

PRINT TAB - PRINT USING - LOCATE - COLOR en mode texte. 
y Presentation en tableaux de touies sortes grace a la pratique des operateura 

MODULO et DIVISION ENTIERE. 
* Beaucoup de programmes utilisent des assemblages de ce 
operateurs... dont la combinaison nest pas toujours facile. 



3.17 Compiements 



t Etude des demieres instructions, fonctions et variables du cycle 1 : FILES. 
KILL. AUTO, ON ERROR GOTO, RESUME, ERR, ERL, DELETE, EDIT, RENUM 
TRON. TROFF, STOP, CONT, KEV ON. KEY OFF. FIX, BEEP. 

k Complements de cycle 1 qui sont maintenant accessibles aux el^ves ; sur la 
precision et les erreurs dues a I'arrondi, sur la selection, les boucles. 



3.18 Graphisme 



t Une etude complete et d6taill6e sur les Instructions graplilques en haute reso- 
lution : SCREEN, P3ET, PRESET, STEP, LINE, CIRCLE, COLOR, POINT 
PAINT, sans eluder aucune des difficultes et 'pieges- classiquas : Tincrusta- 
tion de texte dans le dessin, les .bavures- dues au PAINT mal utilise. 

t Une etude detaillee du langage graphique DRAW, avec ses subtilltes et ses 
pieges (sous-chaines X, parametres variables dans le DRAW, etc.). 

*: De nombreux exercices avec leurs solutions (80) et leurs illustrations sur des 
photos d'ecran en couleur (48 photos). 



3.19. Dessin des courbes 

* Un chapitre separe du graphisme general (chapitre 3.18) de lapon a ce que les 

* Pour les mattieux ; une exceliente revision et illustration des courbes de toutes 
sortes : Y - f (x), courbes parametrees, courbes en coordonnees polaires, 
avec des exemples utiles : courbes d'amortissement. astroide, cardioide. 
decomposition d'une fonction penodjque par une sene de Fourier. 

3.20. Revision generate 

* L'enchainement des notions selon I'ordre -pedagogigue- Qui a ete utilise 
jusqu'ici est bien ditterent de i'ordre -logique-. Autant qu'un cours d'anglais 
suit un ordre dilterent de celui (plus logique ') d'une grammaire anglaise. 

* Tout ce qui a ete enaeigne jusqu'ici resume en 30 pages. Une reference pour 
retrouver la notion dont on a besoin a travets le cours el ses exercices. fulais 
aussi une reflexion sur la structure dun langage intormatique, d'ou une prepa- 
ration a la lecture des cours de PASCAL (par example !]. 

3.21. Tecliniques de mise au point 

* Les ouliis de base : etude des editeurs de lexte, connaissance et interpreta- 



■ [experience que 



3.22. Problemes de synthase - Notions d'analyse 

C'esl a la fois la conclusion, la partie la plus originale et la plus utile de ce cours. 
L'auteur ne se contente pas de fournir une liste de problemes avec leur solution : 
il se met a la place du programmeur debutant en essayanl de decortiguer le -pro- 
cessus de reflexion, qui fait passer de I'enonce dun probleme a sa solution: une 
initiation pratique a I'analyse. 

1 livre troche de 248 pages pages 21 x27, dont 8 pages en couleur 
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Systemes MIC 



• exploiter toutes les possibilites des systemes MIDI 

• realiser vous-memes un clip video 

• tirer le maximum de vos synthetiseurs 

• installer Chez vous votre studio d'emegistrement 

• tout savoir sur les nouveautes musique et video creatives 

Tout cela chaque mois 
dans Music Video Systemes 

une publication des Editions Frequences chez votre marchand de journaux 
Editions Frequences 1, boulevard Ney 75018 Paris - Tel. 46.07.01.97 



